perm filename DIV2.FNZ[TIM,LSP] blob sn#702196 filedate 1983-03-17 generic text, type T, neo UTF8
(defun div2 (l)
       (do ((l l (cddr l))
	    (a () (cons (car l) a)))
	   ((null l) a)))

(defun dv2 (l)
       (cond ((null l) ())
	     (t (cons (car l) (dv2 (cddr l))))))